library(Rcpp)
MarkovChain <- setRcppClass("MarkovChain")
